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lem Ea | 
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LL 000000 AAAAAA DDDDDDDD EEEEEEEEEE RRRRRRRR SSSSSSSS UU UU BB8BBBE8B 
LL 000000 AAAAAA DDDDDDDD EEEEEEEEEE RRRRRRRR SSSSSSSS UU UU 688888888 
LL 00 0O AA AA DD DD EE RR ss UU UU 6B 

LL 00 00 AA AA DD DD EE RR RR SS UU UU 6B 8B 
LL 00 0O AA AA DD DD EE RR RR SS UU UU 6B BB 
LL 00 00 AA AA DD DD EE RR RR SS UU UU BB 6B 
LL 00 00 AA AA DD DD EEEEEEEE | RRRRRRRR SSSSSS UU ,UU 68888888 
LL 00 00 AA AA DD DD EEEEEEEE RRRRRRRR SSSSS$ UU UU 688888888 
LL 00 00 AAAAAAAAAA DD OD EE RR RR SS UU UU 6B BB 
LL 00 00 AAAAAAAAAA DD DD EE RR RR SS UU UU 6B BB 
LL 00 00 AA AA DD DD EE RR dad SS UU UU 6B 6B 
LL 00 00 AA AA DD DD EE RR RR SS UU UU 6B BB 
LLLLLLLLLL 000000 AA AA DDDDDDDD EEEEEEEEEE RR RR SSSSSSSS UUUUUUUUUU  BBBBBBBB 
LLLLLLLLLL 000000 AA AA DDDDDDDD EEEEEEEEEE RR RR SSSSSSSS UUUUUUUUUU  BBBBBBBB 
LL IIIIII SSSSSSSS 

LL III] SSSSSSSS 

LL II SS 

LL II SS 

LL I] $s 

LL II Ss 

LL I] SSSSSS 

LL II SSSSSS 

LL II ss 

LL Il 4 

LL I] SS 

LL II ss 

LLLLLLLLLL II1111 SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 
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-SEP-1984 17:13:56 ([BOOTS.SRCJLOADERSUB.MAR;2 (1) 

00 TITLE LOADERSUB = LOADER SUBROUTINES 

00 “IDENT "Vv04-0 

44h o sdewncenersoeenscereneeersoesecsnsoeeneosnesensensavensqnsserencesesoceeoes 

;* 

$000 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 

0000 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

0000 [* ALL RIGHTS RESERVED 

$909 3 

0000 t* ONLY IN ACCOR DANCE WITH THE TERMS OF SUCH LICEN SE AND WITH 

9000 :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER 

000 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

9000 i* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 

0000 * 

0000 7* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

0000 :* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

4 :* CORPORATION. 

0000 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

44 ” SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 

0000 jteeeeeeeeeeeeeeeeeseseeesennnnentnntntnntnnntnteeeneeneeeegsenssneeesseess 
0000 , | 
0000 | 
9000 “FACILITY: 1/0 DATABASE GENERATOR 
9000 ABSTRACT: LOADER SUBROUTINES 


ENVIRONMENT: USER MODE PRIVILEGED CODE 
AUTHOR: LEN KAWELL, CREATION DATE: 16-JUN-716 | 
MODIFIED BY: | 


V04-001 WHM0004 Bill M 04-Sep-1984 
Correct branch in CONNECT CONSOLE/LOGICAL. 


v03-006 ne s Bill Matthews 01-Aug-1984 
bugs in CONNECT CONSOLE support for VENUS. Add 
EOWNEE CONSOLE (terminal) support to MicroVAX I. 


v03-005 wHM0002 Bill Matthe 27-F eb-1984 
Set maxunits to 4 for all VENUS CONNECT CONSOLE commands. 


v03-004 WHMO0001 Bill Matthews 13-Dec-1983 
Added CONNECT CONSOLE support for VENUS. 
Converted all CPUDISP’s in this module to use the new format 
of the macro. 


v03-003 KDM0084 Kathleen D. Morse 23-Sep-1983 
Add Micro-VAX I to CPUDISP and use new format oo the macro. 
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* 
* 
8 
* 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND goriee * 
’ 
* 
* 
* 
TRANSFERRED. * 
* 
* 
* 
* 
* 
% 
* 
* 
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v03-002 ROW0203 Ralph 0. Weber 5-AUG-1983 
Change IOGENSCNTRL_INI to use IOCSCTRLINIT, the common, 


system-wide routine for calling driver's controller 
initialization routines. 


v03-001 TCMO0001 Trudy C. Matthews 27-Jul-1983 
Removed teget definition of CPUDISP macro. Updated some of 


the CPUDISP invocations to include VENUS-specific code paths. 
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DECLARATIONS miisets 0 04-00 age 3 


59 Yan ve: Hat 
BOOTS .SRCJLOADERSUB.MAR; 2 (1) 


4: 
3:56 


B88 $8 -SBTTL DECLARATIONS 
900 71 
000 ie : 
0000 73 ; INCLUDE FILES: 
0000 74 ; 
4 75 
000 6 3 
0000 77 ; MACROS: 
0000 78 ;: 
0000 79 
0000 SE: 
0000 1 ; EQUATED SYMBOLS: 
0000 ¢ 3 
0000 8 
0000 84 SOCDEF :; DEFINE ADAPTER TYPE SYMBOLS 
0000 85 SDYNDEF DEFINE DYNAMIC MEMORY BLOCK TYPES 
0000 86 SPRDEF sDEFINE PROCESSOR REGISTERS 
0000 87 SUCBDEF ;DEFINE UCB OFFSETS 
0000 88 SDDBDEF :DEFINE DDB OFFSETS 
0000 89 SCRBDEF ;DEFINE CRB OFFSETS 
0000 90 SIDBDEF sDEFINE IDB OFFSETS 
0000 91 SVECDEF sDEFINE CRB DISPATCHER OFFSETS 
0000 92 SUBADEF ;DEFINE UBA REGISTERS 
0000 93 SADPDEF ;DEFINE ADP OFFSETS 
0000 94 SDPTDEF DEFINE DPT OFFSETS 
0000 95 SACF DEF sDEFINE ACF OFFSETS 
0000 96 SBOOCMDDEF ;DEFINE SYSGEN COMMAND OPTIONS 
0000 97 
0000 98 ; 
0000 99 ; OWN STORAGE: 
0000 100 ; 
0000 101 
eat ++ 138° -PSECT NONPAGED_DATA’ rd,wrt,noexe,quad 
0000 104 UBINT_DISP: 31ST INSTRUCTION IN INTERRUPT 
BB +44 133 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; DISPATCH BLOCK FOR UNIBUS DEVICE. 


nr 


| 


Mm 15 
LOADERSUB = LOADER SUBROUTINES 15=SEP=1984 23:54:59 VAX/VMS Macro V04-00 Pa 
rite 1OGENSLOCK_10DB/1OGENSUNLK_ 1008 “SEP=1984 ¢ :13:56 BOOTS. SRCILOADERSUB.MAR: 2 ” 
90 198 ne «SBTTL IOGENSLOCK_1I0DB/1OGENSUNLK_10D8 
09 110 ; IOGENSLOCK_I0DB = LOCK THE SYSTEM 1/0 DATABASE FOR WRITE 
00 iW : IOGENSUNLKTIODB - UNLOCK THE SYSTEM 1/0 DATABASE 
990 11§ : FUNCTIONAL DESCRIPTION: 
0002 +115: LOCK = GETS THE I/O DATABASE MUTEX FOR WRITE 
O88 116 3 UNLOCK = RETURNS THE 1/0 DATABASE MUTEX AND RETURNS IPL TO 1. 
900 118 : 
00 119 ; INPUTS: 
000 120 ; 
000 121; NONE 
000 1 § 3 
$00 ! 3: OUTPUTS: 
990 1 3 : 1/0 DATABASE LOCKED AND IPL RAISED OR UNLOCKED AND IPL LOWERED 
000 127 
wana °° 133 -PSECT NONPAGED_CODE rd,nowrt,exe,long 
0000 130 IOGENSLOCK_10DB:: 
00000000'GF DE 0000 131 MOVAL G*IOCSGL_MUTEX,RO : GET 1/0 DATA BASE MUTEX 
00000000'GF p00 0007 13¢ MOVES G*SCH$GL~CURPCB,R4 : GET OWN PCB ADDRESS 
00000000'GF 16 OO0E 1 JSB G*SCHSLOCKY : AND LOCK IT 
05 0014 134 RSB 
0015 135 
0015 136 IOGENSUNLK_IODB:: 
00000000'GF DE 0015 137 MOVAL G*IOCSGL_MUTEX,RO 3 GET 1/0 DATA BASE MUTEX 
00000000'GF DO OO1C 138 HO OvLe G°SCHSGL “CURPCB,R4 : AND OWN PCB ADDRESS 
00000000'GF 16 0023 139 JSB G*SCHSUNCOCK ; AND UNLOCK IT 
0029 140 SeTIP L #0 ; ALSO LOWER IPL 
05 002C 141 RSB 


| N 15 
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= LOADER 
IOGENSALLOBLOCK =SEP=19 BOOTS. SRCJLOADERSUB.MAR; 2 (1) 
D 143 «SBTTL IOGENSALLOBLOCK 
D Wet 
p 146 3 IOGENSALLOBLOCK = ALLOCATE CONTROL BLOCKS 
6 D 148 ; ALLOCATES A BLOCK OF MEMORY FROM THE NON-PAGED POOL AND 
020 149: ZEROS IT. 
02D 150; 
02D 151 : INPUTS: 
02D 13 3 
00 p 133 ; R1 = SIZE OF BLOCK DESIRED 
80 D 138 + OUTPUTS: 
002D 156; 
0020 157: RO = STATUS OF ALLOCATION 
0020 «158: R1 = SIZE OF ALLOCATED BLOCK 
002d 159 ; R2 = ADDRESS Of ALLOCATED BLOCK 
002d 160 ; 
002D 161 
002D 16¢ TOGENSALLoBLOCK: 
38 BB 002D 16 PUSHR  #*M<R3,R4,R5> :SAVE REGISTERS 
00000000'GF 16 OOF 164 OSB GEE SALONONPAGED TALLOCATE NON=PAGED POOL 
08 50 Es 0035 165 BLBS :BR IF su CESS 
50 0000°BF 3C 0038 166 MOVZWL Asis NSFMEM,RO "SET ERROR STATUS 
38 BA 003D 167 POPR M<R3,R4,R5> :RESTORE REGISTERS 
05 OO3F 168 RSB SRETURN 
0040 169 108: 
07 BB 0040 170 PUSHR #*M<RO,R1,R2> SAVE REGISTERS 
62 51 00 FC AF 00 2C 0042 171 208:  ##$MOVCS #0,20$.#0.R1,(R2) [ZERO THE BUFFER 
3F §=6©BA 0049 172 POPR #*M<RO.R1.R2.R3,R4,R5> i RESTORE REGISTERS 
ae ig ohne 


ooo on ——— — 
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LOADERSUB = LOADER SUBROUTINES 15-SEP-1984 yan/yes Macro v04-00 & 
v04-001 IOGENSCNTRL_INI 8 P=1984 t $3334 Hoots sre LOADERSUB.MAR; 2 ec (3) 
004C 17 -SBTTL IOGENSCNTRL_INI 
ae ie 
ao4t 173 ; IOGENSCNTRL INI = INITIALIZE THE DEVICE CONTROLLER 
004C 181 ; INPUTS - RG = ADDR OF DDB 
004C «1 § r = ADDR OF DRIVER PROLOGUE TABLE 
Sock Ra 
b04¢ 185 [OGENSCNTRL_ INI: 
Ober +t ; Limit types of adapters which are processed by this routine. 
004C 189 DISPATCH = 
Boer + 4 a -ADPTYPE(R11), TYPE=B8, PREFIX=ATS_, 
004C 136 <UBA, 208? ~ ; UNIBUS adapters are ok 
004C 19 <MBA,50$>,- s MASSBUS adapters are ok 
004C 194 <C1,50$>,- :; CI adapters are ok 
O04¢ 198 “Ee (Soe t /NOADAPTER is also ok 
50 01 00 005d £4197 MOVL » RO 3; For the rest, set success status, 
05 44 138 RSB ; but don't really do anything. 
OFFC 8F BB 0061 200 50$: PUSHR #*M<R2,R3,R4,R5,R6,R6,R7, a R9,R10 gee ei Save registers. 
5004 D0 0065 201 MOVL DDBSL_UCB(R6), RO ; Get a UCB address. 
58 24 A0 00 0069 $06 MOVL UCB$L-CRB(RO), RB 3; Use that to ao a CRB address. 
58 DO 006d 20 MOVL R6, RT1 3; Get DDB address in right place. 
) ee DO 0070 204 MOVL ACF SL aes R1 ; Get last resort CSR address value. 
00000000'GF 16 0074 205 JSB G*1OCSCTRLINIT Call seamen, controller init routine. 
OFFC BA OO7A 206 POPR eS Rae au R5,R6,R6, R?. R8,R9,R10,R11> ; Restore registers.’ 
05 OO7E 207 RSB 3 Return Ped IOCSCTRLINIT status in RO. 


C 1 
LOADERSUB = LOADER SUBROUTINES 15-SEP-1984 23:54:59 VAX/VMS Macro v04-00 Page 
-001 IOGENSCONN_VEC ate 7 $3 179 :28 LBOOTS SReILOADERSUB.MAR:2 . 
O7F 09 -SBTTL IOGENSCONN_VEC 
Bee 
Bo eE \§ ; IOGENSCONN_VEC = CONNECT A UNIBUS INTERRUPT DISPATCHER TO A VECTOR 
di 13 3 THIS SUBROUTINE IS CPU-DEPENDENT. THE FOLLOWING CPU'S ARE SUPPORTED: 
007F 16 ; 11/780 “CONNECT VEC$Q_DISPATCH+2 (JSB @#) TO VECTOR 
0075 17; 11/750 CONNECT VECSQ_DISPATCH (PUSHR) TO VEC TOR 
007F 18 ; 11/730 CONNECT VECSO- DISPATCH (PUSHR) TO VECT 
O07 13 ; 11/790 CONNECT VECSQ-DISPATCH+2 (JSB a#) TO VECTOR 
007F $f 3 FOR ALL CPU'S, PUSHR #*M<R2,R3,R4, R5> IN THE INTERRUPT DISPATCH BLOCK 
007F $¢ : IS CHANGED TO PUSHR #*M<RO,R1,R2,R3,R4,R5>. 
007F : 
OO7F 224 ; INPUTS: 
QOO7F 225; 
QOO7F 226; RO = ADDRESS OF VECTOR TO CONNECT 
thd ssf 3 R4 = ADDRESS OF INTERRUPT DISPATCH BLOCK IN CRB 
007F $$3 3; OUTPUTS: 
OO7F 230 ; 
OO7F 231; ALL REGISTERS PRESERVED 
OO7F 232 ;- 
QOO7F 233 
007F 234 IOGENSCONN VEC:: : 
64 O00000000'EF BO OO7F 235 MOUW  § UBINT_DISP,VECS$Q_DISPATCH(R4) ;CHANGE PUSHR TO PUSH RO-R5 
60 64 9€E 0086 $36 MOVAB VECS$Q"DISPATCH(RZ),(RO) ;CONNECT PUSHR TO VECTOR 
0089 238 ; 
0089 239 list meb 
0089 240 CPUDISP <<780,VEC_780>,- 3; Dispatch on cpu type 
0089 241 <750,VEC_750>,- : 
0089 s7§ <730,VEC_730>,- : 
0089 24 <790,VEC_790>,- 3 
0089 244 <UV1,VEC_UV1>,= : 
0089 245 > : 
06 01 00000000'GF &8F 9089 seoesis CASEB G*EXESGB_CPUTYPE ,#SS$BASE ,#SSLIMIT 
0012° 0091 - SIGNED WORD VEC_780-30012$ 
0017° 0093 - SIGNED VEC-750-30012$ 
0017° 0095 - SIGNED “GORD VEC= 730-3001 ; 
0012° 0097 - SIGNED WORD VEC-790-30012$ 
BOeE 94.84 LIF EQ $$GENSW, eWORD 2*<$$LIMIT+#1> 
00g 098 LIF EQ S$$GENSW, WORD 2#<$$LIMIT+1> 
0017" 009D -SIGNED_WORD VEC _UV1-30012$ 
FEFF OO9F WORD “XFEFF 
0004" Oat -IIF IDN <FATAL>,<FATAL> , .WORD BUG$_UNSUPRTCPU!4 
GOs 47 VEC_790: TFOR 11/790 AND 
OOA rk VEC_780: sFOR 11/780: 
60 02 CO O0A3 4 ADDL #2 (RO) sSTEP VECTOR TO VECS$Q_DISPATCH+2 
02 11 a6 20 BRB vVEC_E | ; 
bas 26 VEC. 730 11/730: 
One 53 vec_730 311/730: 
OA 54 VEC_uv1 FOR Micro-VAX | 
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v04-001 IOGENSCONN_VEC “SEP=1984 17:13:56 (CBOOTS.SRC LOADERS UB.MAR;2 (1) 
60 06 QOA8 255 INCL (RO) SET L.O. BIT TO INDICATE THAT 

COAA 33) H INTERRUPT HANDLED ON INT STACK 

QOAA 58 VEC_END: :*END OF CPU=DEPENDENT CODE® . 

QOAA $25 3 

QOAA 60 ; 

05 OOAA 261 RSB ; DONE 


LOADERSUB = LOADER SUBROUTINES 15-SEP-1984 23:54:59 VAX/VMS Macro v04-00 Page 9 
v04-001 IOGENSTEST_MEM ety 17:33:36 taoors. sRe LOADERSUB.MAR; 2 . (1) 
poe 63 -SBTTL IOGENSTEST_MEN 
OAB 64 5 ++ 
ppae 65 ; 
Boag ¢ ; IOGENSTEST_MEM = TEST A PAGE OF MEMORY 
ppae 38 ; THIS TEST IS CPU-DEPENDENT. THE FOLLOWINT CPU'S ARE SUPPORTED: 
OAB 270 ; 11/780 TEST A PAGE OF “MEMORY A QUADWORD AT A TIME USING THE 
QOAB 271 ; PR$_SBIQC PROCESSOR REGISTER. THIS one ALSO "RIX" 
OOAB i} 3 OME RDS ERRORS TO BE CRD ERRORS. IF ARD RDS 
00AB "3 4 ERROR OCCURS, A MACHINE CHECK WILL RESULT AND THE 
ae ue ; PAGE WILL BE CONSIDERED BAD. 
QOAB 8276 ; 11/750 <-TEST A PAGE OF MEMORY A QUADWORD AT A TIME USING THE 
OOAB «277 ; MOVQ INSTRUCTION. IF A UNCORRECTABLE ECC ERROR OCCURS, 
00AB gre ; A MACHINE CHECK WILL RESULT AND THE PAGE WILL BE 
peas 444 ; CONSIDERED BAD. } 
b0A8 +4 3 THIS SUBROUTINE SHOULD BE CALLED VIA BRANCH TO SUBROUTINE AT IPL 31. , 
00AB $84 ; INPUTS : 
QOAB 38284 ; 
QOAB «= 285 ; R3 = VIRTUAL ADDRESS OF FIRST BYTE OF PAGE. 
0OAB gee ; R4 = PHYSICAL ADDRESS OF FIRST BYTE OF PAGE. 
QOAB 87 ; ; 
00AB see ; OUTPUTS: 
QOAB 89 ; 
QOAB 8290 ; RO = LOW BIT SET FOR GOOD PAGE. 
QOAB «291 ; LOW BIT CLEAR FOR BAD PAGE. 
OQOAB $38 ; R3 = R35 + 512. 
OOAB 293; R4 = RG + 512. 
QOAB 8294 ; OTHER REGISTERS PRESERVED. 
00AB 95 ;-- 
QOAB 296 IOGENSTEST_MEM:: 
06 BB 90AB 297 PUSHR #*M<R1,R SAVE REGISTERS | 
51 QO000000"EF DO OOAD 298 mov. MMGSA EY SPARAM*<EXESGL _StB-EXESA SYSPARAM> ,R1 
00B4 99 : GET SYS.EXE COP Y “OF SCB ADDR 
04 Al DD 0084 300 PUSHL 4(R1) ;SAVE CURRENT MACHINE CHECK HANDLER 
52 5E 00 0087 301 MOVL SP,R2 :MARK STACK POSITION 
OOBA 303 
d0sA 38 CPUDISP <<780,SET_MMCHK_780>,- ;*DISPATCH ON CPU TYPE*® 
OBA 05 <7 T_AMCHK_750>> 
01 01 Q0000000°GF 8&F pe 300188: CASEB G*exeScB~ CPUTYPE ° ASSBASEL#SSLIMIT 
0012° bat « SIGNED_WORD SET_MMCHK_780-30018$ 
thd bore « SIGNED- ret SET. MMCHK~750-30018$ 
0004" docs - ~LIF IDN 1 ambient » «WORD BUG$_UNSUPRTCPU!4 
OOCA 07 SET_MMCHK 750: 1/750: 
04 Al 00000108'EF DE OOCA 308 MOVAL MMCHK_759,4(R1) CONNECT 11/750 MCHECK HANDLER 
08 11 902 o B SET_MACHK. END : 
0D4 11 SET_MMCHK 780: sFOR 11/780: 
04 Al Q0000110°EF ODE Bape \¢ MOVAL MMCHK_780,4(R1) CONNECT 11/780 MCHECK HANDLER 


F 16 


vou-Ool TOGENSTESTCRER. "F2$Eb=1984 17:13:56 EBoovs sReSLOADERSUB.maR;2 "29° (9) 
14 SET_MMCHK_END: ;*END OF CPU-DEPENDENT CODE* 
50 40 8F 9A 18 MOVZBL #<512/8>,RO ;SET LOTP COUNTER FOR 64 QUADWORDS 
18 TEST_MEM_LOOP: 
: CPUDISP $<780,CLR 0, 780>. . ;*DISPATCH ON CPU TYPE® 


01 01 00000000°GF &F CASEB RET ~CPUTYPE, #SSBASE, ‘ #SSLIMIT 


30024$: 
0008" «SIGNED_WORD  CLR_Q_780-30024$ 
0010" SSIGNED“WORD  CLR707750-30024$ 
FEFF “WORD = “XFEFF 
0004" “LIF IDN <FATAL>,<FATAL> , .WORD BUGS_UNSUPRTCPU!4 
tFOR 11/780: 


CLR_Q_780: 8 
MTPR ;CLEAR A QUADW 


R4,#PR$_SBIQC ORD 
+ INCREMENT PHYSICAL ADDRESS 


COOOCOCOCCOCOCOOCOCOCOOoOOOOCOOOoCoOSooO -m 


54 DA 
54 O0BSCO ADDL 
02. 11 BRB CLR_Q_END ; 
CLR_Q_750: SFOR 11/750: 
63 7C CLRQ = (R3) ;CLEAR A QUADWORD 
CLR_Q_END: SEND OF CPU-DEPENDENT CODE® 
83 83 01 CMPL = (R3) +, (R3) + READ BOTH LONGWORDS, AND ADVANCE TO 
£050 FS SOBGTR RO,TEST_MEM_LOOP ;DECREMENT QUADWORD COUNTER AND LOOP 
50 01 9A MOVZBL #1,RO ISET STATUS TO SUCCESS 
0012 31 BRW TEST_MEM_DONE :JOIN COMMON EXIT 


t LOCAL MACHINE CHECK HANDLER FOR 11/750: 


-ALIGN LONG 
MMCHK_750: ; 
26 ~—séOF DA MTPR #*XF ,#PRS_MCESR ;CLEAR ANY MEMORY ERROR 
06 11 BRB BAD_MEM ; 


> LOCAL MACHINE CHECK HANDLER FOR 11/780: 


> ALIGN LONG 
MMCHK 780: : 
30 00 ODA #0,#PRS$_SBIFS ;CLEAR ANY MEMORY ERR 
BAD _MEM: ay bg te Petey nERORY CAUSED MCHECK 
Ss fs MOVL R2,SP CLEAR MCHECK LOGOUT STACK 
50 4 CLRL RO’ SET STATUS TO FAILURE 
TEST_MEM_ DONE : PREPARE FOR EXIT 
04 Al 8EDO POPL (R1) RESTORE OLD MCHECK HANDLER 
06 BA 41% #*M<R1,R2> RESTORE REGISTERS 
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IOGENSCONSOLE = SET UP FOR CONNECTING CONSOLE BLOCK STORAGE DEVICE 
THIS SUBROUTINE IS CPU DEPENDENT. THE FOLLOWING CPU'S ARE SUPPORTED: 


11/780 DRIVER NAME IS DXD SET IDB BUILT FLAG IN 
BOOSGL_CONFLAGS BE NSOLE FLOPPY SHARES: A 
CRB AND IDB WITH E TERMINAL (OPAO:) 


ONSOL 
R. SET THE SCB VECTOR FLAG IN 
E CONSOLE TU58 INTERRUPTS 

D OF THE UBA. 


VER. 
USE CO 

THE CONSO 
11/750 =DRIVER NAME IS DDDRIVE 
BOOSGL _CONFLAGS BECAUS 

THROUGA THE SCB INSTEA 


11/730 = SAME AS 11/750 
11/790 = DRIVER NAME IS CVDRIVER. REST IS THE SAME AS 11/750 AND 11/730 


RI 
CA 
HE 
RI 
CA 
ST 


Vv 
U 
E 


0909 0969 09 09 08 SII NINN NS SIENA OOOO 


FWD $9 OO NAMES WIN 9 OONAULS WA) 0 OONOUSWNOWOONOUSE 


1F 
1F 
1F 
1F 
1F 
O11F 
O11F 
O11F 
O11F 
O11F 
O11F 
: 1F 
1F 
O11F 
O11F 
O11F 
O11F 
O11F 
O11F 
O11F INPUTS: 
O11F 
O11F NONE 
O11F 
S \e Hs OUTPUTS: 
- S \f $8 THE FOLLOWING GLOBAL LOCATIONS MAY BE MODIFIED: 
O11F 39 BOOSGL_CONDRV 
O11F 39 BOO$SGL_ CONFLAGS 
O11F 39 B00 $GL- CONCRB 
O11F §=—-39 BOOSGL~CONVECT 
O11F §= 39 BOO$GL ~CONUNITS 
O11F 396 i-- 
O11F 39 
O11F 98 IOGENSCONSOLE:: 
O11F 39 CPUDISP <<780, CONSOLE_780>,- s*DISPATCH ON CPU TYPE®* 
O11F 40 <730, CONSOLE” 130>,- 
O11F 40 <730;¢ 730>.- FOR 11/730: 
O11F 40 <uvI, CONSOLE “HYO3" - FOR Micro-VAX | 
giie rt «790, CONSOLE-790>,- For 11/790 
06 01 00000000'GF  8F O11F ceoeiid CASEB G*EXESGB. CPUTYPE , #SSBASE ,#SSLIMIT 
0012" 18 «SIGNED_WORD  CONSOLE_7 00368 
008D' 0129 “SIGNED"WORD CONSOLE 43 -30 6$ 
0083' 128 SSIGNED“WORD CONSOLE~730-30036$ 
0046" 012D SIGNED -WOR CONSOLE 7790- 0036$ 
OO0E i$ LIF EQ 2 det op Ce tee og ts BE 
000E 131 LIF EQ $$GEN SSLIMIT+1> 
0029" 0133 > SIGNED_WORD CONSOLE _Ovi~ 300368 
FEFF 135 «WORD “xXFEFF 
0004' : i 405 -LIF IDN <FATAL>,<FATAL> , .WORD . BUGS  UNSUPRTCPU!4 
133 406 CONSOLE_780: sFOR 11/780: 
0000° CF 0000' CF 9E 139 40 MOVAB W*BOOSGT_DXNAME ,@*BO0SGL CONDRV ; POINT TO te ww 
0000'CF 02 90 0140 40 MOVE #ACFSM CRBBLT WBOOSGL CONFLAGS ; SET CRB BUILT FLAG 
0000'cF 00000000°GF 9& 0145 40 MOVAB G*OPASCRB,W*BOOSGL_CONTRB : STORE CRB ADDRESS 
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IOGENSCONSOLE “SEP-1984 BOOTS.SRC JLOADERSUB.MAR ; 2 ) 


re. ~~ oie +19 BRB CONSOLE _END 
a3 tig CONSOLE _UV1: 
QOOOO'CF O1C7'CF 9E 015 41 MOVAB W*BOOSGT_CSNAME ,W*BOOSGL_CONDRV ; SET DRIVER NAME TO "'CSDRIVER" 
QOOOO'CF D4 015 414 CLRL W*BOOS$GL~ CON CUN NIT 3 Connect unit 0 
OOOO'CcF 01 00 0158 415 MOVL #1,W*BOOSGL UNITS : One for CSAO console terminal 
OOOO'CF 04 90 160 416 PACESH SCBVEC U*Booscu CONFLAGS ; SET SCB VECTOR FLAG 
QOOO'CF F8 8F 9A 016 41 MOVZBL #*xF8,0* 80086 L_CONVECT ; SET SCB VECTOR OFFSET 
59 =o 168 418 CONSOLE END 
0160 419 
16D 420 CONSOLE_790 
OOOO'CF 04 00 180 421 #4 ,,W°BOOSGL_CONUNITS SET MAXUNITS TO 4<OPAQ=O8 AS) 
OF OVOO'CF 13 £0 01 4 4 é BBS #BOOCMDSV_REMOTE ,W*BOOSGL cMDOPT 188. BRANCH REMOTE 
10 0000'CF 14 £0 0178 4 BBS #BOOCMDSV— LOGICAL ,W*B00SGC_C orf 15$; BRANCH TF LOGICAL CONSOLE 
0000' CF 0000" ¢F 9 OI7e 4st MOVAB w'B00SGT EVNAM AME, 4 <BOOSGL_ COMDRY bd INT TO DRIVER NAME FOR RLO2 
0000'CF 01 DO 0187 426 10$: MOVL #1 o'BO0ScL CONCUNIT ; SET UNIT TO 1(OPA1)REMOTE CONSOLE 
05 11 018C 427 BRB ; JOIN COMMON ¢ 
000O'CF 03 00 O18E 428 15$: MOVL W*BOOSGL_CONCUNIT ; SET UNIT TO COPA3)LOGICAL ‘CONSOLE 
QOOOO'CF OO00'CF 9E 019 429 20$: MOVAB u*booser T OPNAME ,W*BOOSGL CONDEV ; SET DEVICE NAME TO “‘OPA’ ‘ 
"CF 02 90 O19A 430 MOVB #ACFSM CRBBLT,W BOOSGL CONFLAGS ; SET CRB BUILT FLAG 
QOOO'CF O0000000'GF 9E O19F 431 MOVAB G*OPASTRB Bu" BooseL ONTRB ; STORE CRB ADDRESS 
1¢ 11 O1A8 432 BRB CONSOLE _END 
Q1AA 433 CONSOLE_730: : For 11/730 
OOOO'CF 02 DO O1AA 434 MOVL Ag »W*BOOSGL_CONNUMU ; Set number of TUS8 units to 2 
OOOO'CF 03 DO O1AF 435 MOVL W*BOOS$GL-CONUNITS : Set max units (OPAO is Ist unit) 
01B4 436 CONSOLE_750: sFOR 11/750: 
OOOO'CF OO00'CF 96 01B4 437 MOVAB W*BOOSGT_DDNAME ,W*BOOSGL_CONDRV ; POINT TO DRIVERNAME 
01BB 438 CONSOLE_COMMON: 
OOOO'CF 04 90 O01BB 439 MOVB #ACFSM_SCBVEC,W*BOOSGL_CONFLAGS ; SET SCB VECTOR FLAG 
QOOO'CF FO 8F 9A 01¢0 440 MOVZBL #*XF0,Q*BOOS$GL_CONVECT™ : SET SCB VECTOR OFFSET 
016 ae CONSOLE_END: s*END OF CPU DEPENDENT CODE® 
0106 44 
05 0106 444 RSB 
0107 445 
01C7 446 BOOSGT_CSNAME: 
52 45 56 49 52 44 53 43 0" Bice 447 eASCIC /CSDRIVER/ ; Console terminal driver 
01D0 448 
0100 449 END 
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Symbol table -SEP-1984 17:13:56 [BOOTS.SRCIJLOADERSUB.MAR;2 (1) 
SSBASE = 00000001 IOGENSUNLK_IODB 0000015 RG 03 : 
SSDISPL = 8008008 MACHR. 750 e $5090; 08 R 3 
SSGENS = asd MMCHK_ 780 00000110 R 3 
$SHIGH z BOON? MMGSA_SYSPARAM eeenenee =X 3 
SSLIMIT = $9 0006 OPASCRB aeaeenee = = 6 |= (03 
$S$LOW = 00000001 PRS_IPL = 00000012 
SSMNSW = 00000001 PRS_MCESR 2 4}, 
SSMXSW = 00000001 PRS_SBIFS = 00030 
ACFSL_CONTRLREG = aa PRS$_SBIQC = ae: 
ACF SM_CRBBLT = 0000000 PR$_SID_TYP730 = 0000000 
ACFSM_SCBVEC = 00000004 PR$_SID_TYP750 = 00000002 
AT$_CT = 444d 43 Ta = 44H 
_MBA = 00000000 PRS_SID_TYP79 = 00000004 
ATS_NULL = 00000005 PR$_SID_TYPUV1 = 00000007 
~UBA = 00000001 SCHSGL_CURPCB eeeeeeee XX 03 
BAD MEM 00000113 03 SCHSLOCKW eeneeree XX 03 
SGL_CMDOP tereeeee =X 03 SCHSUNLOCK eereeeee =X 03 
BOOSGL_CONCR eeeneeee YY 03 SET_MMCHK_750 QOOO00CA R 03 
BOOSGL_CONCUNIT keeeeeee =X 8 03 SET_MMCHK_78 00000004 R 03 
BOOSGL_ CONDEV teeeeeee =X 03 SET_MMCHK-END 000000DC R 03 
BOOSGL_ CONDRV eenereee XK 03 SS$_INSFMEM 44444441 03 
BOOSGL _ CONF LAGS eeeneeee =X 03 TEST_MEM_DONE 00000118 R 03 
BOOSGL~ CON tereneee XK 03 TEST_MEM_LOOP OOO000EO R 03 
BOOSGL_CONUNITS tereeeeer = X 03 UBINT_DI 00000000 R 02 
BOOSGL— CON teerereer KX 03 UCBS$L_CRB = 00000024 
BOOSGT_CSNAME 000001C7 03 VEC$Q_DISPATCH = 00000000 
BOOSGT_ E eeeeeeee =X = 03 VEC_730 QO0000A8 R 03 
BOOSGT_DDNAME eeeeeeee =X 03 VEC_750 QO0000A8 R 03 
BOOSGT_DXNAME eeeeeeee = YX 803 VEC_780 OO00000A3 R 03 
$GT O eeeeeeee =X = 03 VEC_790 - QOO000A3 R 03 
BOOCMDSV_LOGICAL = 00000014 VEC_END QOOOO0AA R 03 
CMDSV = 00000013 VEC_uv1 QOOO00A8 R 03 
BUG$_UNSOPRTCPU tererere§ YX 03 
_5_750 Q000000F8 R 03 
CLR_Q_780 QOO000FO R 03 
CLR_Q END QOOOOOFA R 03 
CONSOLE _730 QOOOO1AA R 03 
CONSOLE_750 ia 4d & 03 
CONSOLE _780 00000139 R 03 
CONSOLE _790 0000016D R 03 
CONSOLE~ COMMON 00000188 R 03 
CONSOLE” END 000001C6 R 03 
CONSOLE _UvV1 0000150 R 03 
1) _utB = 00000004 
DPT$B-ADPTYPE = 0000000C 
EXESACONONPAGED eererere XX 03 
EXESA_SYSPARAM tererere xX 03 
EXESGB_CPUTY eererere§ KX 03 
EXE sc gererere x 03 - 
| IOCSCTRLINIT eeereree KX 03 
10C MUT geeeeree x 03 
OGENSALLOBLOCK 0000002D 03 
OGENSCNTRL_INI 0000004C 03 
IOGENSC ais 3 
IOGENSCONSOLE 0000011F 8 
IOGENSLOCK_10DB 4 4 RG 3 
IOGENSTEST_MEM 00000AB 03 
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PSECT name Allocation PSECT No. Attributes 
. 00808008 ( 0.) 00 ¢ O.) NOPIC USR CON 
SABSS 00000000 +s 01 ¢ 1.) NOPIC USSR CON 
NONPAGED_DATA 00000002 ( af Bg ( -) NOPIC USR CON 
NONPAGED— CODE 000001D0 ( 464.) 03 ¢ -)  NOPIC USR CON 
ew ecw nm scr re mrecneenneacene oo} 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00:00.07 00:00:00.48 
pennene processing 111 00:00:00.63 00:00:02.04 
441 be SRE 1 00:00:26.61 
Syabol table sort 6 00:00:01. 00:00:03.96 
Pass 2 100 00:00:02.69 00:00:05.79 
Symbol table output 12 00:00:00.12 00:00:00.24 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 705 00:00:19.59 00:00:39.14 


The working set Limit was 1500 pages 
111471 bytes (218 pages) of virtual memory were used to buffer the intermediate c 


449 source Lines were read in Pass 1, producing 18 object records in Pass 2. 
1 pages of virtual memory were used to define 28 macros. 


Macro Library name Macros defined 
-$255$DUA28: poets. 0BJJBO0TS.MLB;1 1 
“$255$DUA28: CSYS.OBJILIB.MLB; 1 14 
“$255$DUA28: Eevsi IBISTARLET. MLB; 2 5 
TOTALS (all Libraries) 20 


13534 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
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AX/VMS Macro v04-00 Page 
BOOTS.SRCJLOADERSUB.MAR; 2 


LCL oop NOEXE NORD NOWRT NOVEC BYTE 
LCL NOSH XE RD ob NOVEC BYTE 
LCL NOSHR NOEXE RD NOVEC QUAD 
LCL NOSHR EXE RD NOURT NOVEC LONG 


There were 70 pages of symbol table space allocated to hold 1195 non-local and 25° oe symbols. 


MACRO/LIS=LIS$:LOADERSUB/0BJ=0BJ$:LOADERSUB MSRC$:LOADERSUB/UPDATE=(ENHS:LOADERSUB) +EXECML$/L1B+L1B$:BOOTS.MLB/LIB 
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